home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / VCLZip / kp222_b5.exe / kpSFXCfg.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-07-23  |  3.0 KB  |  101 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'kpSFXCfg.pas' rev: 5.00
  6.  
  7. #ifndef kpSFXCfgHPP
  8. #define kpSFXCfgHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Classes.hpp>    // Pascal unit
  14. #include <SysInit.hpp>    // Pascal unit
  15. #include <System.hpp>    // Pascal unit
  16.  
  17. //-- user supplied -----------------------------------------------------------
  18.  
  19. namespace Kpsfxcfg
  20. {
  21. //-- type declarations -------------------------------------------------------
  22. #pragma option push -b-
  23. enum TsfxOverwriteMode { omPrompt, omAlways, omNever };
  24. #pragma option pop
  25.  
  26. #pragma pack(push, 1)
  27. struct sfxSpecialHeader
  28. {
  29.     char Sig[3];
  30.     Byte OptionsByte;
  31.     Byte CaptionLen;
  32.     Byte ExtractPathLen;
  33.     Byte CmdLineLen;
  34.     Word InfoTextLen;
  35.     Byte InfoTitleLen;
  36. } ;
  37. #pragma pack(pop)
  38.  
  39. class DELPHICLASS TSFXConfig;
  40. class PASCALIMPLEMENTATION TSFXConfig : public Classes::TComponent 
  41. {
  42.     typedef Classes::TComponent inherited;
  43.     
  44. private:
  45.     #pragma pack(push, 1)
  46.     sfxSpecialHeader FSpecialHeader;
  47.     #pragma pack(pop)
  48.     
  49.     char *FHeader;
  50.     Word FHeaderLen;
  51.     bool FUserCanDisableCmdLine;
  52.     bool FUserCanChooseFiles;
  53.     bool FUserCanChangeOverwrite;
  54.     bool FAutoExtract;
  55.     TsfxOverwriteMode FOverwriteMode;
  56.     AnsiString FCaption;
  57.     AnsiString FDefaultPath;
  58.     AnsiString FCmdLine;
  59.     AnsiString FInfoText;
  60.     AnsiString FInfoTitle;
  61.     
  62. public:
  63.     __fastcall virtual TSFXConfig(Classes::TComponent* AOwner);
  64.     __fastcall virtual ~TSFXConfig(void);
  65.     void __fastcall CreateHeader(void);
  66.     __property char * theHeader = {read=FHeader};
  67.     __property Word HeaderLen = {read=FHeaderLen, nodefault};
  68.     
  69. __published:
  70.     __property bool UserCanDisableCmdLine = {read=FUserCanDisableCmdLine, write=FUserCanDisableCmdLine, 
  71.         nodefault};
  72.     __property bool UserCanChooseFiles = {read=FUserCanChooseFiles, write=FUserCanChooseFiles, nodefault
  73.         };
  74.     __property bool UserCanChangeOverwrite = {read=FUserCanChangeOverwrite, write=FUserCanChangeOverwrite
  75.         , nodefault};
  76.     __property bool AutoExtract = {read=FAutoExtract, write=FAutoExtract, default=0};
  77.     __property TsfxOverwriteMode OverwriteMode = {read=FOverwriteMode, write=FOverwriteMode, default=1}
  78.         ;
  79.     __property AnsiString Caption = {read=FCaption, write=FCaption};
  80.     __property AnsiString DefaultPath = {read=FDefaultPath, write=FDefaultPath};
  81.     __property AnsiString CmdLine = {read=FCmdLine, write=FCmdLine};
  82.     __property AnsiString InfoText = {read=FInfoText, write=FInfoText};
  83.     __property AnsiString InfoTitle = {read=FInfoTitle, write=FInfoTitle};
  84. };
  85.  
  86.  
  87. //-- var, const, procedure ---------------------------------------------------
  88. #define SFXSig "MPU"
  89. extern PACKAGE void __fastcall Register(void);
  90.  
  91. }    /* namespace Kpsfxcfg */
  92. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  93. using namespace Kpsfxcfg;
  94. #endif
  95. #pragma option pop    // -w-
  96. #pragma option pop    // -Vx
  97.  
  98. #pragma delphiheader end.
  99. //-- end unit ----------------------------------------------------------------
  100. #endif    // kpSFXCfg
  101.